home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / VistaPro / rexx / IFF24toJPEG.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-30  |  2KB  |  45 lines
  1. /* FB.rexx -- Vista-to-FrameBuffer ARexx macro */
  2. /*         Written by William Sorensen         */
  3. /*    Copyright © 1992 by Joseph P. Laleman    */
  4. /*    Modified for JPEG by John Hinkley        */
  5.  
  6. /* This is a sample ARexx program for use with VistaPro.  It is provided   */
  7. /* as an example of how to call ARexx to convert each VistaPro generated   */
  8. /* iff24 file into a jpeg file.  See DoFb.iff24.example for the other      */
  9. /* half of this example.                                                   */
  10. /*                                                                         */
  11. /* You must have ARexx and ADPro properly installed on your Amiga for this */
  12. /* example to work.                                                        */
  13.  
  14. ADPpath='ADPro:ADPro'  /* You must ASSIGN ADPro: to the proper directory */
  15.  
  16. IF ARG()~=1 THEN EXIT  /* Expects a command line argument */
  17. PARSE ARG filename
  18. TRACE OFF  /* Avoids unwanted error messages */
  19. IF ~SHOW('P','ADPro') THEN DO
  20.   /* Try to start up ADPro */
  21.   ADDRESS COMMAND 'run <NIL: >NIL: 'ADPpath
  22.   IF RC~=0 THEN EXIT
  23.   ADDRESS COMMAND 'waitport ADPro'
  24.   IF RC~=0 THEN EXIT
  25. END
  26. ADDRESS 'ADPro'
  27. OPTIONS RESULTS
  28. 'PSTATUS UNLOCKED'  /* Just in case */
  29. 'LFORMAT UNIVERSAL'
  30. 'LOAD 'filename
  31. IF RC~=0 THEN DO
  32.   'ADPRO_TO_FRONT'
  33.   'OKAY1 Unable to load file 'filename
  34.   EXIT
  35. END
  36. 'SFORMAT JPEG'
  37. 'SAVE 'filename' RAW 100 BOOST'
  38. IF RC~=0 THEN DO
  39.   'ADPRO_TO_FRONT'
  40.   'OKAY1 Unable to convert Iff24 to jpeg'
  41.   EXIT
  42. END
  43. 'ADPRO_EXIT'  /* Replace with 'EXIT' if you have an older version of ADP */
  44. EXIT
  45.